home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / bg_4 / bg_48dm.bas < prev    next >
BASIC Source File  |  1999-06-15  |  2KB  |  83 lines
  1. /*==== -: "BG_4_8.SP" ﾃﾞﾓﾌﾟﾛｸﾞﾗﾑ :- ====
  2. int i,j,fp,cd=0,ky,pb_n=7,pb_n2=3
  3. int sc0,sc1,sc2,sc3,sy
  4. dim char dat(8191)
  5. dim str mes(3)={"1 9999990 9999990 2 9999990",
  6.         ">>>>>>>>",
  7.         ":",
  8.         ":"}
  9.  
  10. /*==== -: Screen Init. :- ====
  11. screen 0,3,1,1 : window(0,0,511,511)
  12. vpage(&B0000) : apage(0)
  13. v_priority("TGS")
  14. v_special(2)
  15. sp_init() : sp_disp(0)
  16. bg_set(0,1,1) : bg_scroll(0,  0,  0)
  17. bg_set(1,1,1) : bg_scroll(1,  0,256)
  18.  
  19. spfile_def("BG_48.SP",0)
  20. palfile_def("BG_48.PAL",2) : PAL_CH() : PAL_CH2()
  21.  
  22. /*---- -: Map File Read :- ----
  23. fp=fopen("BG_48DM.MAP","r")
  24. fseek(fp,&H1E,0)
  25. fread(dat,8192,fp)
  26. fclose(fp)
  27.  
  28. /*---- -: Map Make :- ----
  29. for i=0 to 63
  30. for j=0 to 63
  31.     cd=dat( (i shl 7)+(j shl 1) ) shl 8
  32.     cd=cd+dat( (i shl 7)+(j shl 1)+1 )
  33.     bg_put(1,j,i,cd)
  34. next
  35. next
  36.  
  37. /*---- -: ??? :- ----
  38. symbol(  1,  1,mes(0),1,1,1,   60,0)
  39. symbol(  0,  0,mes(0),1,1,1,65534,0)
  40. symbol(  1,  9,mes(1),1,1,1,   60,0)
  41. symbol(  0,  8,mes(1),1,1,1,65534,0)
  42. fill(  0,248,255,255,rgb(15,15,17)+1)
  43. symbol(  0,248,mes(2),1,1,1,65534,0)
  44. symbol(128,248,mes(3),1,1,1,65534,0)
  45.  
  46. /*---- -: ｽｸﾛｰﾙ ｶｲｼ :- ----
  47. vpage(&B0001) : sp_disp(1)
  48. while 1
  49.     sc0=sc0+1 and 1023
  50.     sc1=sc1+1 and 2047
  51.  
  52.     ky=asc(inkey$(0))
  53.     if ky = &H1B then break
  54.     if ky = &H20 then PAL_CH()
  55.     if ky = &H42 or ky = &H62 then PAL_CH2()
  56.  
  57.     v_disp()
  58.     bg_scroll(0,sc0 shr 1,  0)
  59. /*    bg_scroll(1,sc0,256)
  60.     bg_scroll(1,sc1 shr 2,256)
  61. endwhile
  62.  
  63. end
  64.  
  65. /*---- -: palet change :- ----
  66. func PAL_CH()
  67.     int i
  68.  
  69.     pb_n=(pb_n+1) and 7
  70.     for i=0 to 15
  71.         sp_color(i,sp_color(i,,2+pb_n),1)
  72.     next
  73. endfunc
  74.  
  75. func PAL_CH2()
  76.     int i
  77.  
  78.     pb_n2=(pb_n2+1) and 3
  79.     for i=0 to 15
  80.         sp_color(i,sp_color(i,,10+pb_n2),15)
  81.     next
  82. endfunc
  83.